#!/usr/bin/perl
use strict;
use warnings;
use 5.010;  # 明确声明使用支持state关键字的Perl版本

sub test_state {
    state $count = 0;
    $count++;
    print "Count: $count\n";
}

test_state();
test_state();
test_state();